home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat06 / spy / install_spy < prev    next >
Encoding:
Text File  |  1992-09-21  |  658 b   |  34 lines
  1. /* Install_SpyMe */
  2. /* Hacked from Install_Notify © Michael Tanzer, 1991, 1992 */
  3. /* See accompanying doc */
  4.  
  5. say 'Copying the following files to your rexx: directory...'
  6. say ' '
  7. say '  Spy.rexx'
  8. say '  SpyMe.rexx'
  9. say ' '
  10. say 'Enter ''go'' to continue:'
  11. pull response
  12. if response~='GO' then do
  13.   say 'Installation aborted.'
  14.   exit
  15.   end
  16.  
  17. fn.1 = 'Spy.rexx'
  18. fn.2 = 'SpyMe.rexx'
  19.  
  20. signal on error
  21. do fx = 1 to 2
  22.   fn = fn.fx
  23.   say 'Copying' fn
  24.   cmdstring = 'COPY "'pragma('D')'/'fn'" rexx:'
  25.   address command cmdstring
  26.   end
  27. say 'Installation complete.'
  28. exit
  29.  
  30. error:
  31.   say 'An error has occurred while copying' fn.fx'.'
  32.   say 'Installation terminated.'
  33.   exit
  34.